This is an R Markdown Notebook with the analysis of the NICE online study. To run the code below, you can open the file in RStudio.
library(furniture) # formating table 1
library(tidyverse) # general wranling
## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.2 ──
## ✔ ggplot2 3.4.0 ✔ purrr 1.0.1
## ✔ tibble 3.1.8 ✔ dplyr 1.0.10
## ✔ tidyr 1.2.1 ✔ stringr 1.5.0
## ✔ readr 2.1.3 ✔ forcats 0.5.2
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag() masks stats::lag()
## [1] 377
## [1] "Video" "Restoration"
## [3] "Presence" "WillingnessToWalk"
## [5] "Beauty" "Structure"
## [7] "Interest" "Familiarity"
## [9] "Scenic" "Crowdedness"
## [11] "Width" "Valence"
## [13] "Arousal" "trial_duration"
## [15] "Distracted_Time" "SSA_Mean"
## [17] "Concern_Covid_Mean" "SIAS_Total_Mean"
## [19] "SPS_Total_Mean" "ipip_Extroversion"
## [21] "ipip_Agreeableness" "ipip_Conscientiousness"
## [23] "ipip_Neuroticism" "ipip_Openness"
## [25] "ipip_Honesty" "Crowd_Preference_Mean"
## [27] "Age" "Background_Architecture"
## [29] "Background_Arts" "Background_Rural"
## [31] "Grow.up.country" "Grow.up.City"
## [33] "Lives_now.x" "years_Lives_now.x"
## [35] "NSS" "Condition"
## [37] "screen_width" "screen_height"
## [39] "video_name" "video_name_df"
## [41] "video_name_df_keep" "video_quality"
## [43] "video_rendition" "video_fps"
## [45] "video_duration" "video_Country"
## [47] "video_Cluster" "video_City"
## [49] "video_testing_group" "video_primary_category"
## [51] "video_secondary_category" "video_n_frames"
## [53] "video_mean_pedcounts" "video_max_pedcounts"
## [55] "video_sum_pedcounts" "Distracted_n"
## [57] "Buffering" "Sex"
## [59] "Language" "ArtsBg"
## [61] "ArchBg" "Lives_now.y"
## [63] "years_Lives_now.y" "urban_rural_background"
## [65] "urban_rural_now" "Employment_status"
## [67] "Nationality" "Approval_rate"
## [69] "Ethnicity" "Student_status"
## [71] "Employment" "Age_breaks"
## [73] "Education" "Upbringing_Environment"
## [75] "Current_Environment" "Anon_ID"